unit ShablonSelect;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dRoot, DB, StdCtrls, Buttons, ExtCtrls, ComCtrls, cxStyles,
  cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit,
  cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid;

type
  TfmShablonSelect = class(TdlgRoot)
    rgSelect: TRadioGroup;
    cxGrid1: TcxGrid;
    cxGridDBTableView1: TcxGridDBTableView;
    cxGridLevel1: TcxGridLevel;
    cxGrid2: TcxGrid;
    cxGridDBTableView2: TcxGridDBTableView;
    cxGridLevel2: TcxGridLevel;
    ds_s: TDataSource;
    ds_r: TDataSource;
    cxGridDBTableView1SVNAME: TcxGridDBColumn;
    cxGridDBTableView1SDNAME: TcxGridDBColumn;
    cxGridDBTableView2SVNAME: TcxGridDBColumn;
    cxGridDBTableView2SDNAME: TcxGridDBColumn;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmShablonSelect: TfmShablonSelect;

implementation

uses DBinv, InvProc, InvTypes, DealsEdit;

{$R *.dfm}

procedure TfmShablonSelect.FormShow(Sender: TObject);
begin
  inherited;
  ds_s.DataSet:= fmDealsEdit.qShablon_S;
  ds_r.DataSet:= fmDealsEdit.qShablon_R;
end;

end.
